Dit voorbeeld maakt gebruik van de functie DateDiff om het aantal dagen tussen de opgegeven datum en vandaag weer te geven.
Dim TheDate As Date ' Declare variables.
Dim Msg
TheDate = InputBox("Voer een datum in")
Msg = "Dagen vanaf vandaag: " & DateDiff("d", Now, TheDate)
MsgBox Msg